home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / f7.omed < prev    next >
Text File  |  1996-04-22  |  546b  |  16 lines
  1. /* F7 */
  2. if ~open("f_keys","T:f_keys.omedtemp",R) then exit
  3. f6 = readln("f_keys")
  4. f7 = readln("f_keys")
  5. call close("f_keys")
  6. rn_isranged var rn_state
  7. if ~rn_state then ed_goto line f7
  8. else do
  9.     if ~open("rn_begin","T:rn_begin.omedtemp",R) then exit
  10.     rn_begin = readln("rn_begin")
  11.     call close("rn_begin")
  12.     ed_goto line f7
  13.     ed_getcurrtrack var currtrack
  14.     if f7>=rn_begin then rn_setrange starttrack currtrack startline rn_begin endtrack currtrack endline f7
  15.     else rn_setrange starttrack currtrack startline f7 endtrack currtrack endline rn_begin
  16. end